MODULE In;

PROCEDURE Char*(VAR ch: CHAR);
(** Returns the character ch at the current position
  (LF for the end-of-line character).
*) BEGIN END Char;

PROCEDURE Byte*(VAR n : BYTE); BEGIN END Byte;
PROCEDURE ShortInt*(VAR n : SHORTINT); BEGIN END ShortInt;

PROCEDURE Int*(VAR n: INTEGER);BEGIN END qwerty;

PROCEDURE LongInt*(VAR n: LONGINT);
(** Returns the long integer constant n at the current position:
        IntConst = digit {digit} | digit {hexDigit} "H".
*) BEGIN END LongInt;

PROCEDURE Real*(VAR x: REAL);
(** Returns the real constant at the current position:
        RealConst = digit {digit}
            [ "." {digit} [ "E" ["+"|"-"] digit {digit} ]]
*) BEGIN END Real;

PROCEDURE LongReal*(VAR x: LONGREAL);
(** Returns the long real constant at the current position:
        LongRealConst = digit {digit}
            [ "." {digit} [ ("D"|"E") ["+"|"-"] digit {digit} ]]
*) BEGIN END LongReal;

END In.
